Images, Structural Biophysics Section, Division of Intramural Research, NHLBI, NIH

<% Dim adoRS 'ADODB.Recordset Set adoRS = CreateObject("ADODB.Recordset") 'Dim imgFileFilter imgFileFilter = request.QueryString("imgFile") if imgFileFilter <> "" then imgFileFilter = "fileName = '" & imgFileFilter & "'" else imgFileFilter = "fileName = '6comparison_baxstructures.jpg'" 'Response.Redirect("/labs/lmb/gallery/") end if %>

<% urlStr = Request.ServerVariables("PATH_INFO") %> <% getLeftNav(getLabStr(urlStr)) %>

Image

<% ' Set up the Connection adoRS.ActiveConnection = "Provider=MSDAOSP; Data Source=MSXML2.DSOControl.2.6;" ' Open the XML source adoRS.Open Server.MapPath(".") & "\imgInfo.xml" adoRS.Filter = imgFileFilter 'Response.Write( adoRS.Fields("thumbnail") & adoRS("id") & ": " & adoRS.Fields.Item("caption") ) 'printtbl adoRS, 0 If Not (adoRS.EOF Or adoRS.BOF) Then %>

<%=adoRS("caption")%>

<% Else %>

Image not found.

<% End If If adoRS.State = adStateOpen Then adoRS.Close End If Set adoRS = Nothing 'Response.End %>

NHLBI HOME · SEARCH NHLBI · ACCESSIBILITY INFORMATION · NHLBI SITE INDEX · OTHER SITES · PRIVACY STATEMENT · FOIA · CONTACT NHLBI

Department of Health and Human Services

National Institutes of Health

National Heart, Lung, and Blood Institute

<% ' Function to recurcusively retrieve the data Sub printtbl(rs, indent) Dim rsChild 'ADODB.Recordset Dim Col 'ADODB.Field set rsChild = Server.CreateObject("ADODB.Recordset") While rs.EOF <> True For Each Col In rs.Fields If Col.Name <> "$Text" Then ' $Text to be ignored If Col.Type <> adChapter Then ' Output the non-chaptered column Response.Write( String((indent)," " ) & Col.Name & ": " & Col.Value ) Else Response.Write("
") ' Retrieve the Child recordset Set rsChild = Col.Value rsChild.MoveFirst If Err Then Response.write("Error: " & Error ) Response.end end if printtbl rsChild, indent + 4 rsChild.Close Set rsChild = Nothing End If End if Next Response.Write( "
") rs.MoveNext Wend End Sub %>